home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 32 / mailrmv.cmd < prev    next >
Encoding:
Text File  |  1986-07-17  |  640 b   |  26 lines
  1. *MAILRMV.PRG
  2. * REMOVE DELETED RECORDS
  3. USE MAILLIST
  4. ERASE
  5. Y.ANS = ' '
  6. @ 10,10 SAY 'SEARCHING FOR RECORDS....'
  7. COUNT FOR DELREC() TO Y.COUNTED
  8. IF Y.COUNTED = 0
  9.     ERASE
  10.     @ 24,00 SAY 'NO RECORDS WERE FOUND TO REMOVE. PRESS ANY KEY TO CONTINUE.' GET Y.ANS
  11.     READ
  12.     CLOSE
  13.     RETURN
  14. ENDIF
  15. @ 11,10 SAY 'DELETING '+STR(Y.COUNTED,3)+' RECORDS. PLEASE WAIT......'
  16. PACK
  17. USE MAILLIST INDEX MAILNAME,MAILCOMP,MAILZIP
  18. ERASE
  19. @ 10,10 SAY 'REINDEXING. PLEASE WAIT........'
  20. REINDEX
  21. @ 11,10 SAY LTRIM(STR(LASTREC(),4))+' RECORDS IN NEW FILE'
  22. @ 24,00 SAY 'PLEASE PRESS ANY KEY TO CONTINUE' GET Y.ANS
  23. READ
  24. CLOSE ALL
  25. RETURN
  26. əəəəəəəəəəəəəəəəəəə